home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Answers 2002 January
/
PC Answers January 2002.7z
/
PC Answers January 2002.bin
/
graphics
/
freepixl
/
_SETUP.1
/
Example4.pxl
< prev
next >
Wrap
Text File
|
2000-12-23
|
633b
|
19 lines
{ Sample PiXCL code: example #4 }
Initialize:
WinGetActive(Win$) {Get the default name of the current window.}
UseCoordinates(PIXEL) {Set the co-ordinate mode. This is optional.}
WinLocate(Win$,200,100,500,320,Res) {Put the window where you want it.}
SetMenu("Exit!",Leave, {create a very simple menu.}
ENDPOPUP)
DrawText(20,20,"Hello World") {write this text on to the window.}
Wait_for_Input: {This is the "idle" loop where the program waits.}
WaitInput() {wait until an event occurs.}
Leave: {terminate the program.}
End